home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PBLIB1 / SKEL / SKEL1.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-03  |  1KB  |  53 lines
  1. PROGRAM SKEL1;
  2.  
  3. {$M 15000,0,20000}
  4.  
  5. Uses PbMISC, PbDATA, PbPARMS;
  6.  
  7. {
  8. Description : Skeleton Utility Program - non-interactive
  9.  
  10. Author      : Howard Richoux
  11. Date        :
  12. Last revised: 2/18/94
  13. Application : IBM PC and compatibles, done in Turbo Pascal 7.0
  14. Status      : Placed in the Public Domain by HNR Software 1/94
  15. Published in: none
  16.  
  17. This basic skeleton would be used for utilities which operate
  18.   primarily from .CFG files and the Param line.  See PARMUnit for
  19.   a group of 'standard' variables
  20.  
  21. }
  22.  
  23. var s : string;      { sample global }
  24.  
  25.  
  26. {*****************************************************************}
  27.  
  28. Procedure GoOn;      { Initialization is over, do some work.}
  29.      begin
  30.      writeln('Hello world. ',s);
  31.      end;
  32.  
  33.  
  34.  
  35. Procedure Init;
  36.      begin
  37.      AddParm(1,'TEMP','ABCDEFG');
  38.      StandardPvarsInit;
  39.      s := GetParmStr('TEMP');
  40.      end;
  41.  
  42.  
  43. (*  Main program *)
  44.      BEGIN
  45.      pProgID := 'SKEL 1.00';
  46.      writeln('');
  47.      Init;
  48.  
  49.      GoOn;
  50.      end.
  51.  
  52.  
  53.